#!/usr/bin/perl

use strict;
use Fcntl ':flock';
require 'config.pl';

unless (check_PID())
{
  die "$0 is already running. Exit.";
}

# Signalhandler, damit das pid-File sicher entfernt wird
$SIG{INT}=sub
{
        printlog("Terminating $0 [SIGINT].");
        unlink($::rsspreader_pidfilename);
        exit();
};
$SIG{TERM}=sub
{
        printlog("Terminating $0 [SIGTERM].");
        unlink($::rsspreader_pidfilename);
        exit();
};


while (1)
{





        # um die Last auf dem Server zu begrenzen
        sleep($::taker_intervall);
}

exit;



sub check_PID
{
        # wenn ein PID-File existiert nicht noch einen Prozess starten
        return 0 if -e $::rsspreader_pidfilename;
        # Prozess-ID in Datei schreiben
        open(PID, ">$::rsspreader_pidfilename" );
        print PID "$$\n";
        close(PID);
        return 1;
}
                                                        